BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Ss-Sz/SysMsg.cpt/SysMsg/SysMsg V0.9a/stack.txt

Text File | 1987-09-23 | 5KB | 229 lines

-- stack: in.9a
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2721
-- card count: 3
-- first card id: 2820
-- list block id: 4696
-- print block id: 3415
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 16000 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on showMessage sentMessage,var
  global FREEZE
  if FREEZE is true then
    exit showMessage
  else
    if var <> empty then put " (" & var & ") " into var
    put return & "[" & sentMessage & var & "]" && "to " & short name of target after last line of card field "whereField" of card "thisCard"
    wait 20
  end if
end showMessage

on mouseDown
  showMessage mouseDown
end mouseDown

on mouseStillDown
  showMessage mouseStillDown
end mouseStillDown

on mouseUp
  showMessage mouseUp
end mouseUp

on mouseEnter
  showMessage mouseEnter
end mouseEnter

on mouseWithin
  showMessage mouseWithin
end mouseWithin

on mouseLeave
  showMessage mouseLeave
end mouseLeave

on Idle
  global noIdle
  if noIdle is false then exit Idle
  showMessage Idle
end Idle

on openStack
  global FREEZE,noIdle
  put false into FREEZE
  put false into noIdle
  set hilite of card button "Show no idles" of card ID 2820 to true
  set icon of card button ID 13 to -15744
  set name of card button ID 13 to "STOP"
  --hide MenuBar
  showMessage startUp
  showMessage openStack
end openStack

on closeStack
  showMessage closeStack
  pass closeStack
end closeStack

on suspend
  showMessage suspend
  pass suspend
end suspend

on resume
  showMessage resume
  pass resume
end resume

on newButton
  showMessage newButton
end newButton

on deleteButton
  showMessage deleteButton
end deleteButton

on newButton
  showMessage newButton
end newButton

on deleteButton
  showMessage deleteButton
end deleteButton

on newField
  showMessage newField
end newField

on deleteField
  showMessage deleteField
end deleteField

on newCard
  showMessage newCard
end newCard

on openCard
  showMessage openCard
end openCard

on deleteCard
  showMessage deleteCard
end deleteCard

on closeCard
  showMessage closeCard
end closeCard

on returnKey
  showMessage returnKey
end returnKey

on enterKey
  showMessage enterKey
end enterKey

on tabKey
  showMessage tabKey
end tabKey

on functionKey var
  --if var <> empty then put " (" & var & ") " into var
  showMessage "functionKey",var
end functionKey

on controlKey var
  --if var <> empty then put " (" & var & ") " into var
  showMessage controlKey,var
end controlKey

on arrowKey var
  --if var <> empty then put " (" & var & ") " into var
  showMessage "arrowKey",var
end arrowKey

on help
  showMessage help
  pass help
end help

on quit
  showMessage quit
end quit

on newBackground
  showMessage newBackground
end newBackground

on openBackground
  showMessage openBackground
  pass openBackground
end openBackground

on closeBackground
  showMessage closeBackground
end closeBackground

on deleteBackground
  showMessage deleteBackground
end deleteBackground